library(tidyverse)
library(DeclareDesign)
library(rdss)

set.seed(42)

sims <- 2000
b_sims <- FALSE

source("code/declarations/declaration_9.1.R")

diagnosis_9.1 <- diagnose_design(declaration_9.1, sims = sims, bootstrap_sims = b_sims)

write_rds(diagnosis_9.1, file = "diagnosis_objects/diagnosis_9.1.rds")


